home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / slides.sda / SHOW SLIDES (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  2KB  |  73 lines
  1. 150 PRINT"[147]":IFA=0THENA=1: LOAD" SLIDE.ML",8,1
  2. 160 IFA=1THENA=2:GOTO370
  3. 170 IFTR$="FADE"THENSYS20519
  4. 180 SYSGT
  5. 190 TI$="000000":LT=TI:POKE198,0
  6. 200 IFKP$="WAIT"THEN270
  7. 210 ET=TI/60-LT:IFET>SCTHEN570
  8. 220 GETK$:IFK$=""THEN210
  9. 230 IFK$="[133]"THEN270
  10. 240 IFK$="Q"THEN330
  11. 250 IFK$="_"THENIS=IS-2
  12. 260 GOTO570
  13. 270 GETK$:IFK$<>""THEN270
  14. 280 GETK$
  15. 290 G=54272:POKEG+24,15:POKEG+1,110
  16. 295 POKEG+5,9:POKEG+6,9:POKEG+4,17:POKEG+4,16
  17. 300 IFK$="[133]"ORK$="Q"ORK$="_"THEN230
  18. 310 IFK$=""THEN280
  19. 320 GOTO570
  20. 330 POKE53265,(PEEK(53265)AND223)
  21. 340 POKE53270,(PEEK(53270)AND207):POKE53272,21
  22. 350 POKE53280,6:POKE53281,15:POKE646,0
  23. 360 CLOSE2:CLOSE15:POKE56,160:POKE644,160:CLR:PRINT"[147]":END
  24. 370 POKE53280,6:POKE53281,12:POKE646,0:POKE53272,21
  25. 380 POKE56,32:POKE644,32:POKE198,0:CLR:A=2
  26. 390 PRINT"[147] [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  27. 400 PRINT" [221]                                    [221]"
  28. 410 PRINT" [221]   PRESS _ TO GO BACK ONE SLIDE     [221]"
  29. 420 PRINT" [221]                                    [221]"
  30. 430 PRINT" [221]   PRESS Q TO QUIT                  [221]"
  31. 440 PRINT" [221]                                    [221]"
  32. 450 PRINT" [221]   PRESS F1 TO PAUSE                [221]"
  33. 460 PRINT" [221]                                    [221]"
  34. 470 PRINT" [221]   PRESS ANYOTHER KEY TO CONTINUE   [221]"
  35. 480 PRINT" [221]                                    [221]"
  36. 490 PRINT" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  37. 500 GETK$:IFK$=""THEN500
  38. 510 DIMFF(9):FORI=0TO9:READFF(I):NEXT
  39. 520 DATA8,3,2,6,1,7,5,4,0,2
  40. 530 DIMNA$(50),TY(50),CO(50)
  41. 540 DIMSN(50),SC(50),KP$(50),TR$(50)
  42. 550 GOSUB750:TR$="FADE":TY=0
  43. 560 IS=0
  44. 570 IS=IS+1:IFIS=NSTHEN560
  45. 580 IFIS<1THENIS=1
  46. 590 T2=TY:SC=SC(IS):KP$=KP$(IS):TR$=TR$(IS):SN=SN(IS):NA$=NA$(SN)
  47. 600 CO=CO(SN):TP=TY(SN):TY=FF(TP)
  48. 610 GT=20480+(TY*3)
  49. 620 IFGT>20504THENGT=20504
  50. 630 CF=255:IFT2=0THENCF=0
  51. 640 POKE20522,CF:POKE252,CO
  52. 650 IF(TY=1)OR(TY=5)THEN740
  53. 660 LL=LEN(NA$):POKE20525,LL
  54. 670 FORI=1TOLL:POKE20525+I,ASC(MID$(NA$,I,1)):NEXTI
  55. 680 AD=20507
  56. 690 IF(TY=7)THENAD=20513
  57. 700 IF(TY=2)OR(TY=6)THENAD=20510
  58. 710 IF(TP=9)THENAD=20516
  59. 720 SYSAD
  60. 730 CLOSE7:GOTO170
  61. 740 LOADNA$+"*",8,1
  62. 750 CLOSE15:OPEN15,8,15
  63. 760 OPEN2,8,2,"0:SET-UP,S,R"
  64. 770 INPUT#15,E1,E2$,E3,E4
  65. 780 IFE1>0THENPRINT"  "E2$"[146]":GOTO390
  66. 790 INPUT#2,Z$:NP=0:NS=0
  67. 800 A1$="":INPUT#2,A1$,A2$,A3$:IFA1$="END"ORA1$=""THEN820
  68. 810 NP=NP+1:NA$(NP)=A1$:TY(NP)=VAL(A2$):CO(NP)=VAL(A3$):GOTO800
  69. 820 A1$="":INPUT#2,A1$,A2$,A3$,A4$:IFA1$="END"ORA1$=""THEN840
  70. 830 NS=NS+1:SN(NS)=VAL(A1$):SC(NS)=VAL(A2$)
  71. 835 KP$(NS)=A3$:TR$(NS)=A4$:GOTO820
  72. 840 CLOSE2:RETURN
  73.